home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO027A.dsk / AW.CUSTOM.TXT < prev    next >
Text File  |  2012-02-16  |  12KB  |  209 lines
  1. new
  2.  
  3.  100  REM  Copyright(c), February 1987, Garth Shultz, K.A.C.U.S., Kalamazoo, MI
  4.  110  REM   AppleWorks Extra Custom Printers
  5.  120  REM  may distribute freely, but don't sell
  6.  130  IF  PEEK ( - 1101) = 234 THEN  HOME : PRINT "WILL NOT RUN ON AN APPLE II+": END : REM  check MACHID
  7.  140  IF  PEEK ( - 1101) = 6 AND  PEEK ( - 1088) = 234 THEN  GOSUB 30000: REM  make sure enhanced //e
  8.  200 D$ =  CHR$ (4):B$ =  CHR$ (7): REM  ctrl-d and bell
  9.  300  GOSUB 10000: REM  title
  10.  400  ONERR  GOTO 20000: REM  error trap
  11.  500  HOME : VTAB 12: HTAB 17: PRINT "Would you like to read the directions? (Y/N) ";
  12.  510  GET A$: PRINT 
  13.  520  IF A$ = "Y" OR A$ = "y" THEN  GOSUB 4000
  14.  600  HOME : PRINT : FOR I = 1 TO 23: VTAB I: HTAB 41: INVERSE : PRINT " ": NORMAL : NEXT 
  15.  610  VTAB 1: HTAB 43: PRINT "A) Apple DMP/ImageWriter $03BE - +::::"
  16.  620  VTAB 2: HTAB 43: PRINT "                                 :::::"
  17.  630  VTAB 3: HTAB 43: PRINT "B) Apple Scribe          $04BA - ::+::"
  18.  640  VTAB 4: HTAB 43: PRINT "                                 :::::"
  19.  650  VTAB 5: HTAB 43: PRINT "C) Ap. Daisy/Qume Sp.11  $0569 - +::::"
  20.  660  VTAB 6: HTAB 43: PRINT "                                 :::::"
  21.  670  VTAB 7: HTAB 43: PRINT "                                 :::::"
  22.  680  VTAB 8: HTAB 43: PRINT "D) Silentype             $06A5 - +::::"
  23.  690  VTAB 9: HTAB 43: PRINT "E) Qume Sprint 5         $072D - ::+::"
  24.  700  VTAB 10: HTAB 43: PRINT "                                 :::::"
  25.  710  VTAB 11: HTAB 43: PRINT "                                 :::::"
  26.  720  VTAB 12: HTAB 43: PRINT "F) Epson FX series       $0845 - :+:::"
  27.  730  VTAB 13: HTAB 43: PRINT "                                 :::::"
  28.  740  VTAB 14: HTAB 43: PRINT "G) Epson MX series       $0922 - ::+::"
  29.  750  VTAB 15: HTAB 43: PRINT "                                 :::::"
  30.  760  VTAB 16: HTAB 43: PRINT "H) Epson MX/Graftrax+    $09C2 - +::::"
  31.  770  VTAB 17: HTAB 43: PRINT "                                 ::::+"
  32.  780  VTAB 18: HTAB 43: PRINT "I) Epson RX series       $0A7A - :::::"
  33.  790  VTAB 19: HTAB 43: PRINT "                                 ::::+"
  34.  800  VTAB 20: HTAB 43: PRINT "-- Custom Printer        $0B42 - :::::"
  35.  810  VTAB 21: HTAB 43: PRINT "                                 :::::"
  36.  820  VTAB 22: HTAB 43: PRINT "   (end of definitions)  $0C8E - :::::"
  37.  830  VTAB 24: HTAB 53: PRINT "- Memory Map -";
  38.  840  POKE 33,40
  39.  850  HOME 
  40.  860  VTAB 22: FOR I = 1 TO 40: INVERSE : PRINT " ";: NEXT : NORMAL 
  41.  870  VTAB 24: HTAB 14: PRINT "INSTRUCTIONS";
  42.  880  POKE 35,21
  43.  885  HOME 
  44.  890  PRINT "The memory map in the window on the   "
  45.  900  PRINT "right shows the approximate space for"
  46.  910  PRINT "each of the pre defined AppleWorks"
  47.  920  PRINT "printers.  As you can see, the space"
  48.  930  PRINT "alloted to the Custom Printer is"
  49.  940  PRINT "bigger than the other definitions."
  50.  950  PRINT "When the custom printer information"
  51.  960  PRINT "is copied into one of these other
  52.  970  PRINT "areas, the data also overwrites"
  53.  980  PRINT "some of the space for the definitions"
  54.  990  PRINT "below it.  For this reason it is very"
  55.  1000  PRINT "important to choose which area you are"
  56.  1010  PRINT "going to use.": PRINT 
  57.  1020  PRINT "If you need to define three custom"
  58.  1030  PRINT "printers, be especially careful that"
  59.  1040  PRINT "you don't overwrite your first printer"
  60.  1050  PRINT "or the space for 'Custom Printer'."
  61.  1055  PRINT : PRINT "     Press <any key>...";
  62.  1060  GET A$: PRINT : HOME 
  63.  1070  PRINT "Don't be afraid to experiment.  If   "
  64.  1080  PRINT "you make a mistake, you can always"
  65.  1090  PRINT "start over, since you will always use"
  66.  1100  PRINT "only a copy of AppleWorks while using"
  67.  1110  PRINT "this utility.": PRINT 
  68.  1120  PRINT "If possible, try to select the printer"
  69.  1130  PRINT "which has a configuration already"
  70.  1140  PRINT "similar to yours.": PRINT 
  71.  1150  PRINT "After moving your custom printer data,"
  72.  1160  PRINT "remember the name of your new custom"
  73.  1170  PRINT "printer.  Select this from the list in"
  74.  1180  PRINT "AppleWorks' Add a Printer list, and"
  75.  1190  PRINT "rename it whatever you wish.": PRINT 
  76.  1200  PRINT "Press <any key> to continue..."
  77.  1210  PRINT "      <ESC> to exit";
  78.  1220  GET A$: PRINT : IF A$ =  CHR$ (27) THEN  POKE 33,80: POKE 35,24: HOME : END 
  79.  1230  HOME 
  80.  2000  VTAB 6: PRINT "Be sure your AppleWorks disk, with"
  81.  2010  PRINT "SEG.PR, to be reconfigured, is in one"
  82.  2020  PRINT "of the disk drives.": PRINT 
  83.  2030  PRINT "The Custom Printer should have been"
  84.  2040  PRINT "defined.  This is the data that will"
  85.  2050  PRINT "be moved to another area of SEG.PR.": PRINT : PRINT 
  86.  2060  PRINT "Press the key that corresponds to the"
  87.  2070  PRINT "letter for the printer to which to"
  88.  2080  PRINT "move the definitions:"
  89.  2090  PRINT : PRINT "     <ESC> to exit..."
  90.  2100  VTAB 17: HTAB 22: GET A$: PRINT : IF A$ =  CHR$ (27) THEN  POKE 33,80: POKE 35,24: HOME : END 
  91.  2110  PRINT D$"verify/appleworks/seg.pr"
  92.  2120  GOTO 2200
  93.  2130  HOME : PRINT "/APPLEWORKS disk or /APPLEWORKS with"
  94.  2140  PRINT "SEG.PR is not in one of your drives..."
  95.  2150  GOTO 2000
  96.  2200  IF A$ = "A" OR A$ = "a" THEN N$ = "DMP/Imagewriter":AD$ = "43be": GOTO 2300
  97.  2210  IF A$ = "B" OR A$ = "b" THEN N$ = "Apple Scribe":AD$ = "44ba": GOTO 2300
  98.  2220  IF A$ = "C" OR A$ = "c" THEN N$ = "Apple Daisywheel/Sprint 11":AD$ = "4569": GOTO 2300
  99.  2230  IF A$ = "D" OR A$ = "d" THEN N$ = "Silentype":AD$ = "46a5": GOTO 2300
  100.  2240  IF A$ = "E" OR A$ = "e" THEN N$ = "Qume Sprint 5":AD$ = "472d": GOTO 2300
  101.  2250  IF A$ = "F" OR A$ = "f" THEN N$ = "Epson FX series":AD$ = "4845": GOTO 2300
  102.  2260  IF A$ = "G" OR A$ = "g" THEN N$ = "Epson MX series":AD$ = "4922": GOTO 2300
  103.  2270  IF A$ = "H" OR A$ = "h" THEN N$ = "Epson MX/Graftrax+":AD$ = "49c2": GOTO 2300
  104.  2280  IF A$ = "I" OR A$ = "i" THEN N$ = "Epson RX series":AD$ = "4a7a": GOTO 2300
  105.  2290  GOTO 2100
  106.  2300  HOME : VTAB 6: PRINT "You chose ";N$"."
  107.  2310  PRINT : PRINT "Is this correct? (Y/N)  ";: GET A$: PRINT 
  108.  2320  IF A$ = "N" OR A$ = "n" THEN  HOME : GOTO 2000
  109.  2330  VTAB 14: PRINT "Modifying SEG.PR..."
  110.  3000  PRINT D$"bload/appleworks/seg.pr,tsys,a$4000"
  111.  3010  PRINT D$"bsave/ram/temp,a$4b42,e$4c8e"
  112.  3020  PRINT D$"bload/ram/temp,a$";AD$
  113.  3030  PRINT D$"bsave/appleworks/seg.pr,tsys,a$4000,e$4e56"
  114.  3040  GOTO 3100
  115.  3050  VTAB 16: PRINT "Disk is write protected..."
  116.  3060  PRINT "Please remove write-protect tab and"
  117.  3070  PRINT "press <any key> to continue...";
  118.  3080  GET A$: PRINT 
  119.  3090  GOTO 3030
  120.  3100  HOME : VTAB 6: PRINT "Mission accomplished!": PRINT 
  121.  3110  PRINT "Your AppleWorks disk has been"
  122.  3120  PRINT "modified...  The printer named"
  123.  3130  PRINT N$" now is"
  124.  3140  PRINT "customized and contains the data for"
  125.  3150  PRINT "your custom printer!": PRINT 
  126.  3160  PRINT "Since AppleWorks allows up to"
  127.  3170  PRINT "three printers, you may wish to"
  128.  3180  PRINT "add another custom printer...": PRINT 
  129.  3190  PRINT "Do you wish to repeat this process?"
  130.  3200  PRINT : HTAB 5: PRINT "(Y/N)  ";
  131.  3210  GET A$: PRINT : IF A$ <  > "y" AND A$ <  > "Y" THEN  POKE 33,80: POKE 35,24: HOME : END 
  132.  3220 N$ = "":ADR = 0
  133.  3230  HOME : GOTO 2000
  134.  4000  HOME : VTAB 2: HTAB 24: PRINT "AppleWorks Extra Custom Printers"
  135.  4010  VTAB 4: HTAB 6: PRINT "A Utility to Modify AppleWorks to Allow Up to Three Custom Printers"
  136.  4020  HTAB 33: PRINT "by Garth Shultz": PRINT 
  137.  4030  HTAB 5: PRINT "AppleWorks allows up to three printers to be defined, but only allows one"
  138.  4040  PRINT "custom printer.  If, like I, you have need for two or more custom printers, the"
  139.  4050  PRINT "utility will allow SEG.PR, the segment that contains printer information, to be"
  140.  4060  PRINT "modified.  The work that made this possible was done by David W. Walker.  He"
  141.  4070  PRINT "analyzed SEG.PR, identified the tables which contain the specific printer"
  142.  4080  PRINT "data, and published this information on CompuServe.  This file, downloaded from"
  143.  4090  PRINT "MAUG, is entitled APWK12.INF.  With this information, the rest is fairly easy."
  144.  4100  HTAB 5: PRINT "There are nine segments of data which contain the printer codes and"
  145.  4110  PRINT "information for the eleven printers listed on the 'Add a Printer' menu in"
  146.  4120  PRINT "AppleWorks.  The data for a custom printer is contained in the same segment."
  147.  4130  PRINT "The code from the Custom Printer is copied to any one of the other nine"
  148.  4140  PRINT "segments.  By doing this, AppleWorks is simply fooled into thinking that your"
  149.  4150  PRINT "Custom Printer is one of the other printers."
  150.  4160  VTAB 23: HTAB 16: PRINT "<ESC> to quit, <any other key> to continue...";
  151.  4170  GET A$: PRINT : IF A$ =  CHR$ (27) THEN  HOME : RETURN 
  152.  4180  HOME 
  153.  4190  VTAB 6: HTAB 5: PRINT "The program is easy to use.  Follow the prompts, and refer to the memory"
  154.  4200  PRINT "map to choose the printer to replace.  Be sure to use only a copy of your"
  155.  4210  PRINT "AppleWorks program.  Your Custom Printer should be defined before using this"
  156.  4220  PRINT "utility.  The write protect tabs should be removed from the disk, as this"
  157.  4230  PRINT "program needs to write to your AppleWorks disk.  Your AppleWorks disk must be"
  158.  4240  PRINT "on a volume named /APPLEWORKS, as it is on the original disk."
  159.  4250  HTAB 5: PRINT "This utility requires a 128 K Apple II.  When selecting the printers to"
  160.  4260  PRINT "replace, try to choose a printer which is similar to yours, if possible.  It"
  161.  4270  PRINT "might be wise to protect the printer named SILENTYPE for use as a printer"
  162.  4280  PRINT "for 'printing to disk.'  Refer to your AppleWorks manual for the reasons and"
  163.  4290  PRINT "details.  Although it is permissable to do so, if the printer 'Epson RX series'"
  164.  4300  PRINT "is chosen to be replaced, the area for the usual Custom Printer will be over-"
  165.  4310  PRINT "written, making it impossible to define another Custom Printer!  Be sure to"
  166.  4320  PRINT "keep this in mind if selecting this area."
  167.  4400  VTAB 23: HTAB 30: PRINT "Press <any key>...";
  168.  4410  GET A$: PRINT : HOME : RETURN 
  169.  10000  REM  title
  170.  10020  HOME : TEXT : PRINT D$"pr#3": PRINT 
  171.  10030  VTAB 4: HTAB 15: PRINT "Extra AppleWorks(TM) Custom Printer, version 1.0.4"
  172.  10040  VTAB 6: HTAB 22: PRINT "Copyright (c) 1987 by Garth Shultz"
  173.  10050  HTAB 24: PRINT "K.A.C.U.S., Kalamazoo, Michigan"
  174.  10055  HTAB 21: PRINT "(Distribute freely, but don't sell.)
  175.  10060  VTAB 12: HTAB 25: PRINT "An AppleWorks Printer Utility"
  176.  10070  HTAB 20: PRINT "based upon an article published in Page //"
  177.  10080  HTAB 22: PRINT "K.A.C.U.S. Newsletter, July, 1986"
  178.  10085  PRINT : PRINT : HTAB 10: PRINT "This utility works with AppleWorks version 1.2, 1.3, and 2.0"
  179.  10087  PRINT : PRINT : PRINT : HTAB 15: PRINT "K.A.C.U.S. = Kalamazoo Apple Computer Users Society"
  180.  10090  VTAB 23: HTAB 32: PRINT "Press <any key>";
  181.  10100  GET A$: PRINT : RETURN 
  182.  20000  POKE 216,0: PRINT B$: REM  trap error
  183.  20010  ONERR  GOTO 20000
  184.  20020  IF  PEEK (222) = 6 THEN 2130
  185.  20030  IF  PEEK (222) = 4 THEN 3050
  186.  20040  POKE 33,80: POKE 35,24: HOME 
  187.  20050  VTAB 12: PRINT "Error # "; PEEK (222);" occurred!": PRINT 
  188.  20060  PRINT "Correct error and reboot."
  189.  20070  END 
  190.  30000  PRINT  CHR$ (4)"pr#3": HOME : PRINT  CHR$ (7)
  191.  30010  VTAB 4: HTAB 30: PRINT "Not an Enhanced //e!"
  192.  30020  VTAB 8: PRINT "This program will function on an unenhanced //e, but the screen display will"
  193.  30030  PRINT "not properly display the instruction menu.  The menu contains an approximate"
  194.  30040  PRINT "memory map of SEG.PR which shows the blocks for the various pre-defined"
  195.  30050  PRINT "printers.": PRINT : PRINT 
  196.  30060  PRINT "By pressing any key, you will see a listing of the memory map.  Please note the"
  197.  30070  PRINT "letter which corresponds to the printer block to which you want to transfer"
  198.  30080  PRINT "your custom printer, then proceed with the program."
  199.  30090  VTAB 23: HTAB 10: PRINT "<any key> to see listing, <ESC> to return to program...";
  200.  30100  GET A$: PRINT : IF A$ =  CHR$ (27) THEN  HOME : PRINT  CHR$ (21): RETURN 
  201.  30110  HOME 
  202.  30120  LIST 610,820
  203.  30130  VTAB 23: HTAB 27: PRINT "<any key> to continue...";
  204.  30140  GET A$: PRINT : PRINT  CHR$ (21)
  205.  30150  RETURN 
  206. save xtra.printers
  207. AppleWorks(TM) Custom Printer, version 1.0.4"
  208.  10040  VTAB 6: HTAB 22: PRINT "Copyright (c) 1987 by Garth Shultz"
  209.